home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr47 / 316_01.zip / TOD.Z8 < prev    next >
Text File  |  1993-04-01  |  518b  |  36 lines
  1.     .hlist
  2. /
  3. /----   time of day clock from page 13
  4. /
  5. HOUR    =       w12
  6. MINUTE  =       w13
  7. SECOND  =       w14
  8. HUND    =       w15
  9. /
  10.     mov     $0x93,r243
  11.     mov     $0,r242
  12.     or      $0x0c,r241
  13.     di
  14.     or      $0x20,r251
  15.     ei
  16.     ret
  17. /
  18.     push    r253
  19.     srp     $0x10
  20.     inc     HUND
  21.     cmp     $100,HUND
  22.     bne     1f
  23.     clr     HUND
  24.     inc     SECOND
  25.     cmp     $60,SECOND
  26.     bne     1f
  27.     clr     SECOND
  28.     inc     MINUTE
  29.     cmp     $60,MINUTE
  30.     bne     1f
  31.     clr     MINUTE
  32.     inc     HOUR
  33. 1:      pop     r253
  34.     reti
  35.  
  36.